
Namespace StringFormatting
    ''' <summary>
    '''  When applied to a business entity class property, that property will have its case corrected according to the CharacterCasing assigned.
    ''' </summary>
    <AttributeUsage(AttributeTargets.Property, AllowMultiple:=False, Inherited:=False)> Public NotInheritable Class CharacterCasingFormattingAttribute
        Inherits Attribute

#Region " Declarations "

        Private _enumCharacterCasing As CharacterCasing = CharacterCasing.None

#End Region

#Region " Properties "

        ''' <summary>
        ''' Get or sets the CharacterCasing that will be applied to this property when the property is updated.
        ''' </summary>
        Public Property CharacterCasing() As CharacterCasing
            Get
                Return _enumCharacterCasing
            End Get
            Set(ByVal Value As CharacterCasing)
                _enumCharacterCasing = Value
            End Set
        End Property

#End Region

#Region " Constructors and Load & Unload "

        Public Sub New(ByVal enumCharacterCasing As CharacterCasing)
            _enumCharacterCasing = enumCharacterCasing
        End Sub

#End Region

    End Class

End Namespace
